Top 10k strings from +80 Stock Manager (1984)(Oxford Computer Publishing)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 V$(V,E)="."
3 )+"FAKINP"
2 TAPE LOADING ERROR
2 STOP (1/2):
2 STOCK
2 S;Y$;Y$;Y$(
2 QUANTITY @ ITEM PRICE TOO BIG
2 PRESS NUMBER
2 PRESS A KEY
2 ONLY ";L(V);" IN STOCK
2 ADDRESS LINE 3
2 ADDRESS LINE 2
2 ADDRESS LINE 1
2 #E;"ARE YOU SURE?
2 "64350",E*(A>E)
2 "4";V$(V,E+E
2 "4";"Leave the tape running!";
1 norman/data
1 ________________________________Z
1 Z$="0 = MENU":
1 Y$="--------------------------------":
1 W$="3";"SCREEN"
1 W$="3";" DRIVER";#E;
1 W$="2";"YOUR OWN"
1 W$="2";" VAT) DATE ";D$:
1 W$="1";" (EXC"
1 VERS. 1.2 U.K.
1 VALUE EXCL. VAT:
1 VALUE EX. VAT:
1 V$(V,E)="1";" VAT"':
1 V$(V,E)="1";
1 V$(V,E)="1"):
1 V$(V,E)="1"
1 V$(V,E)="0";"+"
1 V$(V,E)="0"
1 V$(V)=V$(V):
1 V$(N)=".":
1 V$(DIM,IM):
1 U$(E)=".":
1 TYPE OF PRINTER:
1 TYPE OF INTERFACE:
1 TOTAL VALUE TOO BIG
1 TODAY'S SALES
1 T$="TODAY'S SALES"
1 T$;" + SAVE"'S$;'''"0. MENU"'"1. ";T$;" ON SCREEN"'"2. ";T$;" ON PRINTER"'"3. SAVE ON CASSETTE"'"4. SAVE ON MICRODRIVE"'"5. SAVE
1 T$,D$'S$''''"SALES EX. VAT:";
1 START THE TAPE
1 SK=E+E;#E;L$
1 SALES QUANTITY:
1 S;X$(E+E);
1 S;T$;" ";D$:
1 S;K$(E+E)'
1 S;I$;" (INC"
1 S;B$;"VALUE EXC VAT:";
1 S;B$;"ADJUSTMENT (";C$
1 S;"NO. GOODS";
1 S;"NO. GOODS";
1 S;"NO. GOODS";
1 S;"N0. GOODS";
1 S;"INVOICE NO. ";N+FN-E;
1 S;"CONTINUE PAGE ";SI
1 S/(E+(PR=E));
1 S$="________________________________"
1 S$(E)=S$(E):
1 S$''"VALUE INCL. VAT:";
1 S$''"0. MENU"'"1. SINGLE ITEM ON SCREEN"'"2. RANGE OF ITEMS ON SCREEN"'"3. ON PRINTER"
1 Ready for verify!*=\
1 REPORTS AND"'"PRICELIST:
1 RE-ORDERINGG
1 R=S(V)*L(V):
1 R=R*(MO/HU)*
1 Q$="3";") ";D$''
1 PRICE LISTJ
1 PRICE EX. VAT:
1 PARITY"," "'"(0=OFF 1=ODD 2=EVEN):
1 P$=" "(
1 P$-E-E)+"."+P$(
1 ON SAVE: USE TAPE NO. ";BA,
1 NORMAL CHR.:
1 NO. GOODS";
1 NAME OF YOUR COMPANY
1 MIN. OF STOCK:
1 MICRODRIVE NOT PRESENT
1 L(V)*S(V)>
1 J$="INCREASE":
1 ITEM PRICE:
1 ITEM PRICE @ STOCK QTY TOO BIG
1 IN STOCK :
1 I$="PRICE LIST":
1 H$="ITEM NO.":
1 G$="AMEND/CHANGE":
1 G$'S$''"0. MENU"'"1. NEW GOODS/CHANGE NAME"'"2. ITEM PRICE"'"3. MINIMUM STOCK"'"4. VAT"'"5. DATE"'"6. COMPANY TEXT"'"7. PRINTER AND PAPER";#E;L$
1 FAK=FAK+E:
1 F(FAK-FN)=B+BB:
1 F$="RE-ORDERING":
1 ENLARGED CHR.:
1 E;B$+J$;":";
1 E;A$;" ";FAK'
1 E+(Q$="2"):
1 E$="STATUS":
1 DISCOUNT %:
1 D$="12.09 1984":
1 Created with Ramsoft MakeTZX
1 C$="DECREASE":
1 BITS (7/8):
1 B$="STOCK ":
1 AMEND/CHANGEH
1 ALPHA COMPUTERS LTD 123 Steward Avenue Harrington London 6XX 4ZZ
1 A*S(V)+B+BB>
1 A$="INVOICE ":
1 ;"OLD DATE: ";D$''"
1 ;"LIST ON ";"PRINTER"
1 2.09 1984
1 1ZX SPECTRUM 0LEARN BASIC 0Z80 ASSEMBLER PROGRAMMIMG0MASTERING MACHINE CODE 1FINANCE MANAGER 1DATABASE 1GRAPHICS GENERATOR 1CENTRONICS INTERFACE 0UNDERSTAND BASIC 1ROM DISASSEMBLER 0TTL DATABOOK 1DOT MATRIX PRINTER 1BENJO THE DOG 1STAR WARS 1SALES LEDGER 1NOMINAL LEDGER 1WORD MANAGER 1COMPUTER BRIDGE 1SCRABBLE 1STOCK CONTROL 1CASINO ROYAL . . . . . . . . . . . . . . . . . . .
1 1ITS (7/8):
1 1984
1 12.09 1984 L
1 12.09 1984
1 01-234-5678
1 --------------------------------S
1 *"M";E;"run":
1 *"M";E;"run"
1 )+"PRINT":
1 )+"FAKINP":
1 (S(V)*(HU+MO*(V$(V,E)="1"))+
1 (A+L(V))*S(V)>
1 'A$;"AND ";B$;C$'S$''"
1 '''"PRINTER CODES:"'"
1 '''"DISCONNECT
1 '''"1. INCL. VAT"'"2. EXCL. VAT";#E;''L$
1 '''" MENU"'S$''" 1. ";A$;"AND ";B$;C$'" 2. ";B$;C$;" ONLY"'" 3. ";B$;J$'" 4. ";B$;E$'" 5. ";F$'" 6. ";I$'" 7. ";G$'" 8. ";T$;" + SAVE"'s$;#E;" ";L$
1 ''"OLD VAT: ";MO''"
1 ''"1. INPUT ON PRINTER AND SCREEN"''"2. ON SCREEN ONLY";#E;L$
1 #E;Z$;#E+E;B$+E$
1 #E;MO;"% VAT ON ITEM?
1 #E;"VAT ON THIS ITEM?
1 #E;"OCP/norman data
1 #E;"NO. ";V;" IS NOT ESTABLISHED!"''"DO YOU WANT TO INPUT?
1 #E;"NO GOODS IN STOCK!"''"INPUT GOODS IN STOCK?
1 #E;"CHANGE NAME?
1 #E;"ARE YOU SURE? (PRESS
1 #E;". = CLEAR ITEM"
1 #E;" ";"0 = END"'DIM+E;" = DISCOUNT"'DIM+E+E;" = TEXT AND VALUE":
1 "WELCOME TO PROGRAM"'"STOCK MANAGER."'s$'''"FIRST NO. OF INVOICE: ";:
1 "TAPE ";BA;" - READY"'S$:
1 "PRINTER CODES RS232"''"
1 "NO MORE ROOM!"'"
1 "M";E;"run":
1 "FORM DEPTH IN INCHES (MIN. 5"")"'S$'''"
1 "9";V$(V,E+E
1 "9";"SUBTOTAL";
1 "9";"DISCOUNT ";A;"%";
1 "9"*(Q$="2")
1 "72";"VAT"''
1 "68"-T;L(V);
1 "65532",E+E:
1 "65495",V-
1 "64346",A-
1 "5";" PRICE
1 "46"-A;M(V);
1 "45";"PAGE "
1 "45";"DATE ";D$
1 "44";"ITEM PRICE":
1 "42";"QUANTITY"'
1 "40"*(Q$="3")
1 "4";"INCL.VAT";
1 "35";Y$;Y$(
1 "35";MO;"% VAT ";
1 "35";"VALUE INCL. VAT";
1 "35";"VALUE ";"EXCL."
1 "35";"QUANTITY ITEM PRICE VALUE";
1 "33";"MINIMUM ";B$;" PRICE QUANTITY VALUE",
1 "32"-L;L(V):
1 "31"*(PR=E)+
1 "30"*(PR=E)+
1 "26");" "+"Phone: "+N$
1 "24";"VALUE INC VAT ";P$:
1 "24";"QUANTITY"
1 "23";" ";
1 "22";P$;#E;M$
1 "20482",A:
1 "20"*(PR=E+E)
1 "20");" ";:
1 "16";A;" "
1 "14"*(PR=E+E):
1 "12";V$(V,E+E
1 "11";V$(V,E+E
1 "10";V$(V,E+E
1 ".5")/HU)*(W$="1"
1 ".5")/HU)*
1 "''"1. ON"'"2. OFF";#E;L$
1 "''"1. NO CHANGE"'"2. NEW OCP DRIVER"'"3. YOUR OWN DRIVER"''"
1 "''"1. MICROLINE"'"2. EPSON COMPATIBLE"'"3. OTHER PRINTER";#E;L$
1 "''" LOAD ";"OCP"
1 " DATE ";D$''
1 " ":
1 OF TODAY'S SALES!":
1 LINE";#E;"START TAPE, then press any key"
1 CARTRIDGE MICRODRIVE"''''"
1 3.5 MIN.":
1 - RECORDING!";
1 ";V$(V,E+E
1 ";S(V);" EX. VAT"
1 A
1 Q